home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / misc / math / geometry.lha / Italiano < prev    next >
Text File  |  1997-04-02  |  3KB  |  145 lines
  1. (set #progname "Geometry V1.2")
  2.  
  3. ; --- Kickstart-Version überprüfen ---
  4. (set vernum (getversion))
  5. (set kickstart (/ vernum 65536))
  6. (set #badkicktxt
  7.     (cat "\n" #progname "\n\nrichiede Amiga-OS 2.04+ (V37)!\n\n"
  8.     "La Sua versione Kickstart è " kickstart ".")
  9. )
  10.  
  11. (if (< kickstart 37)
  12.     (
  13.     (message (#badkicktxt))
  14.     (abort #progname ": Installazione interrotta!")
  15.     )
  16. )
  17.  
  18. ;  --- Libraries überprüfen ---
  19. (set #mathlib1 "libs:mathieeedoubbas.library")
  20. (set #mathlib2 "libs:mathieeedoubtrans.library")
  21. (set #nomathlibstxt "\nSono necessari le seguenti libraries:\n\n")
  22. (if (not (exists #mathlib1))
  23.     (message (cat #nomathlibstxt #mathlib1 "\n" #mathlib2))
  24. )
  25.  
  26. ;-----------------------------------------------------
  27.  
  28. (set #help1
  29.     (cat "Scegli il directory di destinazione per il programma\n"
  30.     #progname ". Non viene creato nessun nuovo directory!")
  31. )
  32.  
  33. (set #getdesttxt
  34.     (cat "\n" #progname " Installation\n"
  35.     "Scegli il directory di destinazione per il programma"
  36.     "\n" #progname
  37.     )
  38. )
  39.  
  40. (set #destpath
  41.     (askdir
  42.         (prompt #getdesttxt)
  43.         (help #help1)
  44.         (default ":")
  45.     )
  46. )
  47.  
  48. ; --- Hauptprogramm + icon kopieren ---
  49. (copyfiles
  50.     (source "")
  51.     (dest #destpath)
  52.     (pattern "Geometry")
  53. )
  54. (copyfiles
  55.     (source "")
  56.     (dest #destpath)
  57.     (pattern "Geometry.info")
  58. )
  59.  
  60. ; --- Catalog kopieren ---
  61. (copyfiles
  62.     (source "locale/italiano")
  63.     (dest "locale:catalogs/italiano/")
  64.     (pattern "Geometry.catalog")
  65.     (help @copyfiles-help)
  66. )
  67.  
  68. ; --- Guide kopieren ---
  69.  
  70. (set #helppath
  71.     (askdir
  72.         (prompt "Scegli la destinazione per il documento AmigaGuide:")
  73.         (help @askdir-help)
  74.         (default #destpath)
  75.     )
  76. )
  77.  
  78. (copyfiles
  79.     (source "")
  80.     (dest #helppath)
  81.     (pattern "Geometry.guide")
  82.     (help @copyfiles-help)
  83. )
  84. (copyfiles
  85.     (source "")
  86.     (dest #helppath)
  87.     (pattern "Geometry.guide.info")
  88.     (help @copyfiles-help)
  89. )
  90.  
  91. ; -----------------------------------------------
  92. (set usr
  93.     (askbool
  94.         (prompt "\n\nTi sei già registrato presso l'autore del programma?")
  95.         (choices "SI" "NO")
  96.         (default 2)
  97.         (help @askbool-help)
  98.     )
  99. )
  100.  
  101. (if (= usr 1)
  102.     (
  103.         (set #usrname
  104.             (askstring
  105.                 (prompt "\nScrivi il tuo nome:")
  106.                 (help @askstring-help)
  107.             )
  108.         )
  109.         (set #password
  110.             (askstring
  111.                 (prompt "\nScrivi il tuo password:")
  112.                 (help @askstring-help)
  113.             )
  114.         )
  115.         (tooltype
  116.             (dest #prg)
  117.             (settooltype "USER" #usrname)
  118.         )
  119.         (tooltype
  120.             (dest #prg)
  121.             (settooltype "PASSWORD" #password)
  122.         )
  123.     )
  124. )
  125.  
  126. (if (= usr 0)
  127.     (
  128.         (message
  129.             (cat "\n" #progname " è SHAREWARE!\n"
  130.             "Se usi regolarmente il programma »" #progname "« devi "
  131.             "inviare L. 8000.- o DM 8.- o US$ 5.- o ATS 60.- "
  132.             "a F. Agnoli, Sciaves 143, I-39040 NAZ-SCIAVES, Italia.\n"
  133.             "E-Mail: f.agnoli@pass.dnet.it")
  134.         )
  135.     )
  136. )
  137.  
  138. (message "\nL'installazione di »" #progname "«"
  139.          "\nè terminata!"
  140.          "\n"
  141.          "\nOra trovi il programma"
  142.          "\nnel directory " #destpath "!")
  143. (exit (quiet))
  144.  
  145.